home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pcscheme / geneva / pcscheme.exe / BIN / MINIBOOT.FSL < prev    next >
Encoding:
Text File  |  1993-10-24  |  8.8 KB  |  349 lines

  1. #!fast-load 4.0 (sources\s\miniboot.s)
  2. h0028 00FC
  3. x03PME
  4. x05ALIAS
  5. x10PCS-MACRO-EXPAND
  6. x13CREATE-SCHEME-MACRO
  7. x05PSIMP
  8. x0CPCS-SIMPLIFY
  9. x03PCA
  10. x14PCS-CLOSURE-ANALYSIS
  11. x03PMR
  12. x11PCS-MAKE-READABLE
  13. x03PCG
  14. x0BPCS-GENCODE
  15. x05PPEEP
  16. x0BPCS-POSTGEN
  17. x03PAL
  18. x0CPCS-PRINCODE
  19. x04PASM
  20. x0DPCS-ASSEMBLER
  21. x13PCS-LOCAL-VAR-COUNT
  22. x02#T
  23. x10PCS-VERBOSE-FLAG
  24. x11PCS-PERMIT-PEEP-1
  25. x11PCS-PERMIT-PEEP-2
  26. x0EPCS-ERROR-FLAG
  27. x11PCS-BINARY-OUTPUT
  28. x04PME=
  29. x06PSIMP=
  30. x04PCA=
  31. x04PCG=
  32. x06PPEEP=
  33. x05PASM=
  34. x0C#!UNASSIGNED
  35. x07PROBLEM
  36. x03T-0
  37. x05T-PME
  38. x07T-PSIMP
  39. x05T-PCA
  40. x05T-PCG
  41. x07T-PPEEP
  42. x06T-PASM
  43. t O  4  O  4  O  4      O  4 
  44.  O  4  
  45. O  4  O  4  O  4  !"#$%&'';
  46. z
  47. h0009 004A
  48. x0BPCS-MAKE-ID
  49. x13CREATE-SCHEME-MACRO
  50. lx13PCS-LOCAL-VAR-COUNTn
  51. x04CONS
  52. llx05QUOTElnnllx05QUOTElnnllx05QUOTElnnn
  53. lx05QUOTElx07#!TOKENn
  54. x04LIST
  55. lx04SET!lx13PCS-LOCAL-VAR-COUNTllx01+lx13PCS-LOCAL-VAR-COUNTli0001nn
  56. x05BEGIN
  57. t< 5 CO O  O O  O  O O  O ;
  58. z
  59. h0026 015C
  60. x07ID-NAME
  61. x13CREATE-SCHEME-MACRO
  62. x09ID-NUMBER
  63. x0EID-FUNARGSEES?
  64. x0BID-FREEREF?
  65. x08ID-SET!?
  66. x07ID-INIT
  67. x07ID-RTV?
  68. x08ID-HEAP?
  69. x12SET-ID-FUNARGSEES?
  70. x0FSET-ID-FREEREF?
  71. x0CSET-ID-SET!?
  72. x0BSET-ID-INIT
  73. x13%EXPAND-SYNTAX-FORM
  74. lx02IDlx03VALn
  75. lx08SET-CDR!llx03CDRllx05CDDDRlx02IDnnlx03VALn
  76. lx02IDlx03VALn
  77. lx08SET-CAR!llx03CDRllx05CDDDRlx02IDnnlx03VALn
  78. lx02IDlx03VALn
  79. lx08SET-CAR!llx05CDDDRlx02IDnlx03VALn
  80. lx02IDlx03VALn
  81. lx08SET-CAR!llx04CDDRlx02IDnlx03VALn
  82. lx02IDn
  83. lx03ANDllx0EID-FUNARGSEES?lx02IDnllx0BID-FREEREF?lx02IDnllx07ID-RTV?lx02IDnn
  84. lx02IDn
  85. lx02ORllx08ID-SET!?lx02IDnllx05NULL?llx07ID-INITlx02IDnnllx0ELAMBDA-CLOSED?llx07ID-INITlx02IDnnn
  86. lx02IDn
  87. lx04CDDRllx05CDDDRlx02IDnn
  88. lx02IDn
  89. lx04CADRllx05CDDDRlx02IDnn
  90. lx02IDn
  91. lx03CARllx05CDDDRlx02IDnn
  92. lx02IDn
  93. lx03CARllx04CDDRlx02IDnn
  94. lx02IDn
  95. lx05CDADRlx02IDn
  96. lx02IDn
  97. lx05CAADRlx02IDn
  98. t<E 4 <( 4 <  4 <ε 4 <╤ 4 <┤ 4 <ù 4 <z 4     <] 4 
  99. <@ 4  <# 4  < 5 
  100.  5
  101.  5
  102.  5
  103.  5
  104.  5
  105.  5
  106.  
  107.  5
  108.  5
  109.   !5
  110. " #5
  111. $ %5
  112. z
  113. h002A 018E
  114. x0ALAMBDA-BVL
  115. x13CREATE-SCHEME-MACRO
  116. x0BLAMBDA-BODY
  117. x10LAMBDA-BODY-LIST
  118. x0CLAMBDA-NARGS
  119. x0CLAMBDA-LABEL
  120. x0CLAMBDA-DEBUG
  121. x0ELAMBDA-CLOSED?
  122. x0FSET-LAMBDA-BODY
  123. x10SET-LAMBDA-NARGS
  124. x10SET-LAMBDA-LABEL
  125. x10SET-LAMBDA-DEBUG
  126. x12SET-LAMBDA-CLOSED?
  127. x11PCS-EXTEND-LAMBDA
  128. x01X
  129. llx08SET-CDR!llx05CDDDRlx01Xnllx04LISTllx05QUOTElnnllx05QUOTElnnllx05QUOTElnnnnlx01Xn
  130. x03LET
  131. x13%EXPAND-SYNTAX-FORM
  132. lx01Xlx03VALn
  133. lx08SET-CAR!llx05CDDDRllx05CDDDRlx01Xnnlx03VALn
  134. lx01Xlx03VALn
  135. lx08SET-CAR!llx04CDDRllx05CDDDRlx01Xnnlx03VALn
  136. lx01Xlx03VALn
  137. lx08SET-CAR!llx03CDRllx05CDDDRlx01Xnnlx03VALn
  138. lx01Xlx03VALn
  139. lx08SET-CAR!llx05CDDDRlx01Xnlx03VALn
  140. lx01Xlx03VALn
  141. lx08SET-CAR!llx04CDDRlx01Xnlx03VALn
  142. lx01Xn
  143. lx03CARllx05CDDDRllx05CDDDRlx01Xnnn
  144. lx01Xn
  145. lx03CARllx04CDDRllx05CDDDRlx01Xnnn
  146. lx01Xn
  147. lx03CARllx03CDRllx05CDDDRlx01Xnnn
  148. lx01Xn
  149. lx03CARllx05CDDDRlx01Xnn
  150. lx01Xn
  151. lx04CDDRlx01Xn
  152. lx01Xn
  153. lx03CARllx04CDDRlx01Xnn
  154. lx01Xn
  155. lx03CARllx03CDRlx01Xnn
  156. t<w 4 <Z 4 <= 4 <  4 < 4 <µ 4 <╔ 4 <¼ 4     <Å 4 
  157. <r 4  <U 4  <8 4 
  158. < 5 CO O O O  O ; 5 5 5 5  5 5  !5" #5$ %5& '5( )5
  159. z
  160. h000E 0074
  161. x0CLETREC-PAIRS
  162. x13CREATE-SCHEME-MACRO
  163. x0BLETREC-BODY
  164. x10LETREC-BODY-LIST
  165. x0FSET-LETREC-BODY
  166. x13%EXPAND-SYNTAX-FORM
  167. lx01Xlx03VALn
  168. lx08SET-CAR!llx04CDDRlx01Xnlx03VALn
  169. lx01Xn
  170. lx04CDDRlx01Xn
  171. lx01Xn
  172. lx03CARllx04CDDRlx01Xnn
  173. lx01Xn
  174. lx03CARllx03CDRlx01Xnn
  175. t<] 4 <@ 4 <# 4 < 5  5     5
  176.  5 
  177. 5
  178. z
  179. h0014 00AE
  180. x07IF-PRED
  181. x13CREATE-SCHEME-MACRO
  182. x07IF-THEN
  183. x07IF-ELSE
  184. x0BSET-IF-PRED
  185. x0BSET-IF-THEN
  186. x0BSET-IF-ELSE
  187. x13%EXPAND-SYNTAX-FORM
  188. lx01Xlx03VALn
  189. lx08SET-CAR!llx05CDDDRlx01Xnlx03VALn
  190. lx01Xlx03VALn
  191. lx08SET-CAR!llx04CDDRlx01Xnlx03VALn
  192. lx01Xlx03VALn
  193. lx08SET-CAR!llx03CDRlx01Xnlx03VALn
  194. lx01Xn
  195. lx03CARllx05CDDDRlx01Xnn
  196. lx01Xn
  197. lx03CARllx04CDDRlx01Xnn
  198. lx01Xn
  199. lx03CARllx03CDRlx01Xnn
  200. t<ù 4 <z 4 <] 4 <@ 4 <# 4 < 5      5
  201.  5 
  202. 5 5 5 5
  203. z
  204. h000E 0074
  205. x07SET!-ID
  206. x13CREATE-SCHEME-MACRO
  207. x08SET!-EXP
  208. x0BSET-SET!-ID
  209. x0CSET-SET!-EXP
  210. x13%EXPAND-SYNTAX-FORM
  211. lx01Xlx03VALn
  212. lx08SET-CAR!llx04CDDRlx01Xnlx03VALn
  213. lx01Xlx03VALn
  214. lx08SET-CAR!llx03CDRlx01Xnlx03VALn
  215. lx01Xn
  216. lx03CARllx04CDDRlx01Xnn
  217. lx01Xn
  218. lx03CARllx03CDRlx01Xnn
  219. t<] 4 <@ 4 <# 4 < 5  5     5
  220.  5 
  221. 5
  222. z
  223. h000F 01C1
  224. x11PCS-MAKE-READABLE
  225. lx07PMR-EXPlx0BPMR-FULL-IDn
  226. x07PMR-EXP
  227. x0BPMR-FULL-ID
  228. x05QUOTE
  229. x07#!TOKEN
  230. x06LAMBDA
  231. x06LETREC
  232. x06MAPCAR
  233. x0CFUNARGSEES?=
  234. x09FREEREF?=
  235. x06SET!?=
  236. x05INIT=
  237. x06LABEL=
  238. x08CLOSED?=
  239. t<;▌<<Å0 ;Ç";@ e " ; e "  [ e " !║ e "     5 C0≤ I 0É O O  O ;C;GK O I O     O  NO
  240. OMCO OME"O OOOOO O  O ;C  4  I 0∞■MCO
  241. OMNOOOOO O  O ; " 0A  B0 H0å■xO ╩j;
  242. z
  243. h001C 0186
  244. x03PCS
  245. x04PME=
  246. x06PSIMP=
  247. x04PCA=
  248. x04PCG=
  249. x05PASM=
  250. x13PCS-LOCAL-VAR-COUNT
  251. x07PROBLEM
  252. x0EPCS-ERROR-FLAG
  253. x05PTIME
  254. x03T-0
  255. x10PCS-MACRO-EXPAND
  256. x05T-PME
  257. x0FERROR-PROCEDURE
  258. s002A[Compilation terminated because of errors]
  259. x0CPCS-SIMPLIFY
  260. x07T-PSIMP
  261. x14PCS-CLOSURE-ANALYSIS
  262. x05T-PCA
  263. x0BPCS-GENCODE
  264. x05T-PCG
  265. x0BPCS-POSTGEN
  266. x06PPEEP=
  267. x07T-PPEEP
  268. x0DPCS-ASSEMBLER
  269. x06T-PASM
  270. x06TOTAL=
  271. x06TIMES-
  272. t<;    4@
  273.  4    4@ "
  274.  4!ä  4    4@  4    4@  4    4@  4    4@  4    4@
  275. R  
  276. R  RRR R  $R $O  $O$$ O$ O  O OOOOOO O O O  O ;
  277. z
  278. h000E 0072
  279. x0BPCS-COMPILE
  280. x10PCS-VERBOSE-FLAG
  281. x02#T
  282. x11PCS-BINARY-OUTPUT
  283. x13PCS-LOCAL-VAR-COUNT
  284. x0EPCS-ERROR-FLAG
  285. x10PCS-MACRO-EXPAND
  286. x0FERROR-PROCEDURE
  287. s002B[Compilation terminated because of errors.]
  288. x0CPCS-SIMPLIFY
  289. x14PCS-CLOSURE-ANALYSIS
  290. x0BPCS-GENCODE
  291. x0BPCS-POSTGEN
  292. x0DPCS-ASSEMBLER
  293. t<;4 "  4;    4
  294. 4 4 4
  295. 5
  296. z
  297. h0003 0013
  298. x12COMPILE-TIME-ALIAS
  299. x05ALIAS
  300. x13CREATE-SCHEME-MACRO
  301. t O  5 
  302. z
  303. h001D 01A7
  304. x10PCS-COMPILE-FILE
  305. x0FOPEN-INPUT-FILE
  306. x0AINPUT-PORT
  307. x0EFILENAME-SPLIT
  308. x0BSTRING-CI=?
  309. s0003.sw
  310. x07READ-SW
  311. x04READ
  312. x17OPEN-BINARY-OUTPUT-FILE
  313. s001A#!fast-load 4.0 MINIBOOT (
  314. s0001)
  315. c0D
  316. c0A
  317. x0FERROR-PROCEDURE
  318. s0036PCS-COMPILE-FILE arguments must be distinct file names
  319. x0BEOF-OBJECT?
  320. x10CLOSE-INPUT-PORT
  321. x11CLOSE-OUTPUT-PORT
  322. x02OK
  323. x0BPCS-COMPILE
  324. x12COMPILE-TIME-ALIAS
  325. x08%EXECUTE
  326. lx05MACROlx06SYNTAXlx05ALIASlx11DEFINE-INTEGRABLEn
  327. x07WRITELN
  328. s0001 
  329. s0003: (
  330. s0001,
  331. x0BOUTPUT-PORT
  332. x09FAST-SAVE
  333. t<; Å "  Å " f ê " o44N 4 " 4    ││
  334. │ │ │40' ; ⁿxⁿⁿ
  335. 4;4"  4  4;0 4 ┐4C IN@ï#ë@d" 5ï" @g" 4  $ $  
  336. 4 4;;
  337. z
  338. h001C 0161
  339. x0D%COMPILE-FILE
  340. x0FOPEN-INPUT-FILE
  341. x0AINPUT-PORT
  342. x0EFILENAME-SPLIT
  343. x0BSTRING-CI=?
  344. s0003.sw
  345. x07READ-SW
  346. x04READ
  347. x17OPEN-BINARY-OUTPUT-FILE
  348. x0FERROR-PROCEDURE
  349. s0033%COMPILE-FILE arguments must be distinct file names
  350. x0BEOF-OBJECT?
  351. x10CLOSE-INPUT-PORT
  352. x11CLOSE-OUTPUT-PORT
  353. x02OK
  354. x10PCS-MACRO-EXPAND
  355. x0EPCS-ERROR-FLAG
  356. x07WRITELN
  357. s002B[Compilation terminated because of errors.]
  358. x0CPCS-SIMPLIFY
  359. x14PCS-CLOSURE-ANALYSIS
  360. x0BPCS-GENCODE
  361. x0BPCS-POSTGEN
  362. x06PPEEP=
  363. x0BOUTPUT-PORT
  364. x10SET-LINE-LENGTH!
  365. x02PP
  366. x0CPCS-PRINCODE
  367. t<; Å "  Å " f ê " Q44N 4 " 440' ; ⁿxⁿⁿ    
  368. 4; 4" 4
  369. 4;0 4 ┐4 " 4  ,4444J4 ╡ 4 ╡ ╡;
  370. z
  371.